home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / pc_board / email_10.zip / EMAIL.PPS < prev    next >
Text File  |  1993-04-19  |  2KB  |  52 lines
  1. ; **************************************************************
  2. ; *                        Email v 1.0                         *
  3. ; *                 Written in PPL for PCBoard                 *
  4. ; *                 Designed By:  Gary Smith                   *
  5. ; *                 Began development: 04-17-93                *
  6. ; *                 Ended development: 04-17-93  <grin>        *
  7. ; **************************************************************
  8. ; This short and simple PPE will show your users email address,
  9. ; ie, thier name with '.' added into a file called EMTEXT that
  10. ; should reside in the PPE directory.
  11. ;
  12. ; If found, the file named EMHELP will be displayed to the user
  13. ; prior to showing the email address name. This can be used for
  14. ; instructions or whatever, The file must reside in the PPE dir.
  15. ;
  16. ; To run this file, I attach it to my NEWS file with the command
  17. ; of !h:\pcb\ppe\email.ppe
  18. ;
  19. ; Obviously you need to change the location of your files above.
  20.  
  21. STRING my_new_name
  22. STRING mail_address
  23. STRING text_line
  24.  
  25.     ; Add what ever text you want, it will be centered on the screen, Don't
  26.     ; forget the length should not exceed about 70 characters.
  27.  
  28. text_line = "Your InterNet EMAIL address is "
  29.  
  30.     ; *IMPORTANT* change this to your address, not mine!
  31.  
  32. mail_address = "@random.wyvern.com"                
  33.  
  34.     ;* If exists show the EMHELP file
  35.  
  36. if (exist(ppepath()+"EMHELP")) dispfile ppepath()+"EMHELP",GRAPH+SEC+LANG
  37.  
  38.     ;* Replace the spaces in the name with a '.', change to lower case
  39.     
  40. my_new_name = REPLACE(LOWER(U_NAME())," ", ".")
  41.  
  42.     ;* Assign string to OPTEXT variable for display. Remember @COLOR does not work
  43.  
  44. OPTEXT SPACE((75-((LEN(text_line)+LEN(mail_address))+LEN(my_new_name)))/2)+text_line+my_new_name+mail_address
  45.  
  46.     ;* Check for the existance and show EMTEXT file (Contains the display file)
  47.  
  48. FRESHLINE
  49.   
  50. if (exist(ppepath()+"EMTEXT")) dispfile ppepath()+"EMTEXT",GRAPH+SEC+LANG
  51.  
  52. END